home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / math / lenritu.bas < prev    next >
BASIC Source File  |  1993-11-30  |  415b  |  15 lines
  1. 10 CLS
  2. 20 PRINT "連立方程式の計算  aX+bY=c"
  3. 30 PRINT "                  dX+eY=f"
  4. 40 INPUT "a=",XA:INPUT "b=",YA:INPUT "c=",ZA
  5. 50 INPUT "d=",X2:INPUT "e=",Y2:INPUT "f=",Z2
  6. 60 PRINT XA"X+"YA"Y="ZA
  7. 70 PRINT X2"X+"Y2"Y="Z2
  8. 80 X1=-XA : X1=X1/YA : Z1=ZA/YA
  9. 90 X2=-X2 : X2=X2/Y2 : Z2=Z2/Y2
  10. 100 X3=X1-X2 : Z3=Z2-Z1
  11. 110 X=Z3/X3
  12. 120 Y=(-XA*X+ZA)/YA
  13. 130 PRINT "X="X",Y="Y
  14. 140 A$=INKEY$:IF A$="" THEN 140 ELSE 10
  15.